home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SEARCHF.M < prev    next >
Encoding:
Text File  |  1990-05-16  |  536 b   |  27 lines
  1. MODULE SearchF;
  2.  
  3. IMPORT Paths, ShellMsg;
  4.  
  5. IMPORT TOSIO; (*$E MOS *)
  6. FROM InOut IMPORT WriteString, Write, WriteLn, Read;
  7.  
  8. VAR ok: BOOLEAN;
  9.     s: ARRAY [0..100] OF CHAR;
  10.     
  11. BEGIN
  12.   WriteString ('HomePath: ');
  13.   WriteString (Paths.HomePath ());
  14.   WriteLn;
  15.   WriteString ('Searching...');
  16.   WriteLn;
  17.   Paths.SearchFile ('RUNTIME.DEF', ShellMsg.DefPaths, Paths.fromStart,
  18.         ok, s);
  19.   WriteString (s);
  20.   WriteLn;
  21.   IF ok THEN
  22.     WriteString ('OK')
  23.   ELSE
  24.     WriteString ('Not found!')
  25.   END
  26. END SearchF.
  27.